home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / online.scpt < prev    next >
Text File  |  1997-02-02  |  703b  |  42 lines
  1. If exists Pagemonster:MiamiPath
  2. copy Pagemonster:MiamiPath TO env:
  3. endif
  4.  
  5. If exists Pagemonster:TermiteTCPPath
  6. copy Pagemonster:TermiteTCPPath TO env:
  7. endif
  8.  
  9. If exists Pagemonster:AmiTCPPath
  10. copy Pagemonster:AmiTCPPath TO env:
  11. endif
  12.  
  13. REQUESTCHOICE >ENV:RECNUM "SELECT A TCP STACK" "Want to go on-line now?" "TermiteTCP" "Miami" "AmiTCP" "NO!"
  14.  
  15. IF $RECNUM EQ "3"
  16. execute $AmiTCPPath
  17. Endif
  18.  
  19. IF $RECNUM EQ "2"
  20. run $MiamiPath
  21. Endif  
  22.  
  23. IF $RECNUM EQ "1"
  24. run $TermiteTCPPath
  25. Endif
  26.   
  27.  
  28. IF $RECNUM EQ "0"
  29. echo ""
  30. echo "    OPERATION CANCELED " 
  31. echo ""
  32. Endif
  33.  
  34. REQUESTCHOICE >ENV:RECNUM "Waiting...." "Return to Pagemonster?" "OK" 
  35.  
  36. IF $RECNUM EQ "0"
  37. echo ""
  38. echo "    Returning to Pagemonster " 
  39. echo ""
  40. Endif
  41.  
  42.